home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 26
/
CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso
/
CUCD
/
CDROM
/
AminetCDs
/
Search
< prev
next >
Wrap
Text File
|
1997-09-10
|
712b
|
36 lines
; Searches the Aminet CD Index files for a specified string
set OutFile "RAM:Aminet"
unset Match
version >NIL: version 37
if WARN
echo ""
echo "You need at least version 2.04 of the operating system to run Index"
quit
endif
unset str
set str `:C/RequestString TITLE "Search Aminet CDs" BODY "Please enter the string to search for"`
get >NIL: str
if WARN
quit
endif
:C/FlashFind Index?? "$str" >>$OutFile NOPREFS QUIET
if WARN
RequestChoice >NIL: "Index search" "No matches found for *"$str*"" "OK"
else
Version >NIL: version 39
if WARN
AmigaGuide $OutFile
else
MultiView $OutFile
endif
endif
delete >NIL: $OutFile
unset OutFile
unset str